      function [ax,h]=subtitle(text)
      % This is the version of subtitle that goes below, as opposed to
      % above, a set of graphs 
      ax=axes('Units','Normal','Position',[.05 .001 .9 .001],'Visible','off','FontSize',12);
      set(get(ax,'Title'),'Visible','on')
      title(text);
      if (nargout < 2)
        return
      end
      h=get(ax,'Title');